home *** CD-ROM | disk | FTP | other *** search
- object AdressbookForm: TAdressbookForm
- Left = 429
- Top = 177
- HelpContext = 1360
- AutoScroll = False
- BorderIcons = [biSystemMenu]
- Caption = 'Addressbook'
- ClientHeight = 295
- ClientWidth = 433
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter2: TTntSplitter
- Left = 201
- Top = 24
- Height = 243
- AutoSnap = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 267
- Width = 433
- Height = 28
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 433
- 28)
- object OkBtn: TTntButton
- Left = 285
- Top = 2
- Width = 64
- Height = 25
- Anchors = [akTop, akRight]
- Caption = '&OK'
- Default = True
- TabOrder = 0
- Visible = False
- OnClick = SendMailBtnClick
- end
- object CloseBtn: TTntButton
- Left = 357
- Top = 2
- Width = 72
- Height = 25
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = '&Close'
- ModalResult = 2
- TabOrder = 1
- end
- end
- object BookPane: TPanel
- Left = 0
- Top = 24
- Width = 201
- Height = 243
- Align = alLeft
- TabOrder = 1
- object Splitter1: TTntSplitter
- Left = 1
- Top = 121
- Width = 199
- Height = 4
- Cursor = crVSplit
- Align = alTop
- AutoSnap = False
- end
- object BookLV: TTntListView
- Left = 1
- Top = 1
- Width = 199
- Height = 120
- Align = alTop
- Columns = <
- item
- AutoSize = True
- Caption = 'Addressbook'
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- SortType = stText
- TabOrder = 0
- ViewStyle = vsReport
- OnChange = BookLVChange
- OnClick = BookLVClick
- OnSelectItem = BookLVSelectItem
- end
- object EntryLV: TTntListView
- Left = 1
- Top = 125
- Width = 199
- Height = 117
- Align = alClient
- Columns = <
- item
- AutoSize = True
- Caption = 'Name'
- end
- item
- AutoSize = True
- Caption = 'Email'
- end
- item
- AutoSize = True
- Caption = 'Key'
- MaxWidth = 40
- end>
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- SortType = stText
- TabOrder = 1
- ViewStyle = vsReport
- OnClick = EntryLVClick
- OnDblClick = Editselectedentry1Click
- OnSelectItem = EntryLVSelectItem
- end
- end
- object EntryPane: TPanel
- Left = 204
- Top = 24
- Width = 229
- Height = 243
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 2
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 229
- Height = 243
- Align = alClient
- TabOrder = 0
- object PaintBox: TPaintBox
- Left = 1
- Top = 197
- Width = 227
- Height = 45
- Align = alBottom
- OnPaint = PaintBoxPaint
- end
- object AddressEdit: TPlusMemoU
- Left = 1
- Top = 1
- Width = 227
- Height = 196
- Cursor = crIBeam
- Alignment = taLeftJustify
- ScrollBars = ssVertical
- AltFont.Charset = DEFAULT_CHARSET
- AltFont.Color = clWindowText
- AltFont.Height = -11
- AltFont.Name = 'MS Sans Serif'
- AltFont.Style = []
- CaretWidth = 1
- ColumnWrap = 0
- DisplayOnly = False
- EnableHotKeys = False
- EndOfTextMark.Color = clRed
- EndOfTextMark.Style = psClear
- Justified = False
- LineHeight = 0
- Options = [pmoWrapCaret, pmoInsertKeyActive, pmoWideOverwriteCaret, pmoAutoScrollBars]
- Overwrite = False
- ReadOnly = True
- RightLinePen.Color = clGray
- RightLinePen.Style = psDot
- ScrollTime = 0
- SelBackColor = clHighlight
- SelTextColor = clHighlightText
- Separators = #9#10#13' $%&+,./:;<=>'
- SpecUnderline.Color = clRed
- UpdateMode = umImmediate
- Version = 'v6.2h Professional ed.'
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial Unicode MS'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- TabStop = True
- OnKeyDown = AddressEditKeyDown
- end
- end
- end
- object AddressBookTopDock: TTBXDock
- Left = 0
- Top = 0
- Width = 433
- Height = 24
- object Toolbar: TTBXToolbar
- Left = 0
- Top = 0
- BorderStyle = bsNone
- CloseButton = False
- DefaultDock = AddressBookTopDock
- DockableTo = []
- DockMode = dmCannotFloatOrChangeDocks
- FullSize = True
- ItemTransparency = itEnable
- ParentShowHint = False
- ShowCaption = False
- ShowHint = True
- Stretch = True
- TabOrder = 0
- UseLastDock = False
- object BookManageBtn: TTBXSubmenuItem
- Caption = '&Book...'
- DisplayMode = nbdmTextOnly
- Options = [tboDropdownArrow]
- object Createnewaddressbook1: TTBXItem
- Caption = '&Create new addressbook...'
- OnClick = Createnewaddressbook1Click
- end
- object Renameaddressbook1: TTBXItem
- Caption = '&Rename addressbook...'
- OnClick = Renameaddressbook1Click
- end
- object Deleteaddressbook1: TTBXItem
- Caption = '&Delete addressbook...'
- OnClick = Deleteaddressbook1Click
- end
- end
- object EntryManageBtn: TTBXSubmenuItem
- Caption = '&Entry...'
- DisplayMode = nbdmTextOnly
- Options = [tboDropdownArrow]
- object Addnewentry1: TTBXItem
- Caption = '&Add new entry...'
- OnClick = Addnewentry1Click
- end
- object Editselectedentry1: TTBXItem
- Caption = '&Edit selected entry...'
- OnClick = Editselectedentry1Click
- end
- object Deleteselectedentry1: TTBXItem
- Caption = '&Delete selected entry...'
- OnClick = Deleteselectedentry1Click
- end
- end
- object TBXSeparatorItem1: TTBXSeparatorItem
- Blank = True
- Size = 20
- end
- object SendMailBtn: TTBXItem
- Caption = '&Send email'
- DisplayMode = nbdmTextOnly
- Hint = '&Send email'
- OnClick = SendMailBtnClick
- end
- end
- end
- end
-